AS MO 9 

INTERFACE PROGRAM IN BASIC 



100 REM ASM09- EXEC. FOR ASM09.BIN 
200 CLEAR 

300 BL-liREM DEL 10 FOR NO BL0AD8 
400 HOfiEl VTAB <4) i INVER8E 
SOO D*-CHR» < 4 > i PR I NTD* | " PR#0 " 
600 PR I NTD* | "CL08E" 

700 X*-" THE MILL / APPLE K 6809 ASBEMBLER " 
800 X-LEN(X«) 

900 PRINTSPC(X) iPRINTiPRINTX*iPRINTSPC(X> i PRINT 

1000 X*-" (C> 1981 CONEJO COMPUTER PRODUCTS " 

1100 PRINTSPC(X) iPRINTlPRINTX*iPRINTSPC(X> iPRINT 

1200 REM 

1300 REM CONFIGURATION P ARAMS 

1400 REM PRINTER PAGE DIM. 

1300 WD«78iDP-66iREM WIDTH, DEPTH 

1503 REM *** MEMORY b I/O CONSTANTS *** 

1310 MEM - 81921 REM>> LOAD HERE << 

1700 IO-MEMiREM 6302 CODE HERE 

1710 C0DE-I0+236iREM 6809 CODE HERE 

1800 8L0T-4iREM MILL 8L0T# 

1810 SN-8LOTH61REM LSB OF I/O ADDR 

1900 8L0T-49280+SNiREM SLOT- > ADDR 

2000 REM >» 4 PAGE ZERO BYTES <<< 

2100 RCMD«230i REM MAILBOX W/09 << ASM09I0.BIN 

2200 TCMD"RCMD+2i REM DITTO 

2210 POKE TCMD+2,SNiREM USED BY ASM09I0 

2220 XFADR"512i REM *200, SEE XFILE 

2300 REM END OF CONSTANTS 

2400 REM 

2300 LI-0i0B-0iFl*»""iPA8S«l 

2600 REM CRT DIM. 

2800 REM GET '09 CODE 

2900 ONERR GOTO 3200 

3000 GOSUB 16000 

3100 GOSUB 13000 i GOTO 3600 

3200 HOMEl FLASH 

3300 PRINT"ASM09.BIN OR ASM09I0.BIN NOT FOUND" 
3400 G0T03400 

3300 REM 

3600 HOME 

3610 VTAB <4> i INVERSE 

3620 PRINT" SELECT DRIVE NUMBER, <CR> FOR #1 "| 

3630 NORMAL i PR I NT" " p CHR* (7> p i GET Y* 

3640 IF A8C(Y*>-13 THEN Y*-"l" 

3630 X-ASC(Y*)iIF < X<-48) OR < X>30> THEN3600 

3633 VTAB ( 4 ) i HTAB < 37 ) i PR I NT Y* 

3660 DR*-",D"+Y* 

3663 REM DEFAULT LISTING SIZEi 

3670 POKE C0DE+3,38iP0KE CODE+4,23 

3680 REM < PR INTER W/0 FORM FEED> POKE CODE+6,0 

3700 VTAB (8) I PRINT 

3800 VTAB (8) I INVERSE 

3900 PR I NT "ENTER 80URCE FILE NAME" p CHR* (7) 

4000 VTAB <8) i HTAB (23) 

4100 NORMAL I INPUT F*i GOSUB 13000 

4200 PRINT 

4300 IF F*-"" THEN 3600 

4400 0*-F*+".HEX" 

4300 ONERR GOTO 4900 

4600 F*-F*iPRINTD*| "VERIFY " j F*+DR» 

4700 PR I NTD* | "READ " j F*i PRINTD*| "CLOSE" 

4800 GOTO 3200 

4900 VTAB (10) I PRINTSPC (39) I VTAB (10) i HTAB < 1 ) 
3000 FLASH i PR I NT "TEXT FILEi "p 



3100 PRINTF»+DR*| " NOT FOUND" i Q0T03700 

3200 GOSUB ISOOOl VTAB<10) i PRINTSPC (39) i PRINT 

3300 VTAB< 13) I INVERSE 

3400 PR I NT "WANT OBJECT CODE (Y/N>"| 

3300 B08UB 13300iOB-Y 

3600 IFY—1 THEN 5300 

3700 IF OB-0 THEN 6000 

3B00 ON ERR GOTO 3910 

5900 PR I NTD* | " DELETE " | 0* 

3910 GOBUB 15000 

6000 VTAB (15)1 INVERSE 

6100 PRINT" WANT LISTING (Y/N>"| 

6200 G0SUB15300iLI-Y 

6300 IFY—1 THEN 6000 

6400 POKE CODE+2, < (0B*12B)+LI) I REM TO ASM09.BIN 

6300 IF LI-0 THEN 7700 

6600 VTAB < 17) I INVERSE 

6700 PR I NT "SELECT LISTING DEVICEl " 

6800 PRINT" <CR> - CRT, "| 

6900 PRINT"# - 8L0T # OF PRINTER" | 

7000 NORMALi PRINT" ?" | CHR* (7) | I GET Lit 

7100 PRINT LI* 

7200 IF ASC(LI»>-13 THEN LI»-"0" I G0T07600 
7300 X-ASC(LI«> 

7400 IF (X<48)0R<X>53>THEN6600 
7500 POKE CODE+3, WD I POKE C0DE+4,DP 
7600 INVERSE 

7700 VTAB<23) iPRINT"PASS 1, FILEi "|F* 
7800 NORMAL 

7900 GOSUB 131001 REM STARTUP MILL 

8000 REM ! M PR INTO* J "OPEN "|F* 

8100 PRINTD*| "READ "|F» 

8110 FX$-F» 

8200 REM I— POLL — 

8400 G0T08600 

8500 REM *** (PREMATURE) EOF 

8303 REM SEND -1 DATA TO AS8EMBLER 

8310 GOSUB 15000 

8520 POKE RCMD+1 , 255 1 POKE RCMD,0 

8600 REM ' 

8605 ONERR GOTO 8500 

8610 CALL lOlREM GOTO 6502 CODE 

8700 GOSUB 15000 

8800 RX-PEEK(RCMD) i TX-PEEK (TCMD) 

8900 REM RCMDi 1-OPEN, 2-READ, 3-REWIND 

8910 REM 4-8T0P,5-OPEN NEW,6-REBUME MAIN 

9000 REM TCMDi 1-LIST, 2-BEGIN 0BJ,3-BEGIN LIST 

9100 IF TX THEN GOSUB 11200 

9200 IF RX>6 THEN STOP 

9300 ON RX G08UB 10900,10800,9600,12500,10610,10700 
9400 POKE RCMD.O 
9500 GOTO 8200 
9600 REM *** REWIND (3) 
9700 PRINTi PRINTD*| "CLOSE" 
9800 IF LI«-"0" THEN HOME I INVERSE 
9900 PRINT"PA88 2, OBJECT FILE-" | I NORMAL 
10000 IF OB-0 THENPRINT" (NONE) "iGOTO 10300 
10100 PRINT" "|0» 

10200 GOSUB 15000 1 PR I NTD«|" OPEN "|0* 
10300 PRINTD*| "PR# "|LI» 
10310 FX*-F« 

10400 PRINTD*| "READ "|FX* 
10500 POKE TCMD,0iPAS8-2 
10600 RETURN 



10610 REM *** READ AN XFILE (5) 
10620 X-XFADRi Fit-" "i POKE RCMD+1,0 
10630 XI "PEEK (X) i IF Xl-0 THEN 106S0 
10640 F1«-F1«+CHR«(X1) i X-X+liGOTO 10630 
10630 ON ERR GOTO 10690 

10652 IF Fl*< >" "THENPRINTD*| "VERIFY " i Fl*i FX*-F1« 

1065S QOSUB 13000 

10666 PRINTDff "READ "jFX« 

10670 RETURN 

10690 S08UB ISOOOlPOKE RCMD+1 , 2S5i REM ERROR 

10692 PRINT 

10693 PRINTF1 • j " NOT FOUND" | CHR* < 7 > 
10696 FX«-F«iFl«-""i RESUME 

10700 REM *** RESUME READ OF MAIN <6> 

10710 PRINTDfj "CLOSE "jFX* 

10720 FX*-F«iFl«-"" 

10730 PRINTD*| "READ "jFX» 

10740 RETURN 

10800 REM *** READ <2> 

10810 STOP 

10900 REM *** OPEN <1) 
11000 RETURN 

11100 REM 

11200 REM TCMD ACTION 

11300 ON TX GOTO 11300,11600,11900 

11400 STOPiREM TX>3 

11500 STOPiREM TX-1 DONE IN A8M09I0 

11600 REM TX-2 8TART HEX 

11700 PR INTO* i REM GOOD OLE DOS! 

11800 PRINTDti "WRITE "|0«i80T0 12200 

1190© REM TX»3»END HEX 

120O0 PRINT 

12100 PRINTDff "READ "|FX« 
12200 POKE TCMD,0 
12300 RETURN 

12400 REM 

12300 REM END PAS8 2 
12600 PRINTD*|"PR# 0" 
12700 PRINTD«» "CLOSE" 
12800 POKE SLOT+2,0 
12900 END 
13000 REM 

13100 REM INITIALIZE THE MILL 

13200 POKE RCMD,OiPOKE TCMD,0 

13300 B8-128 

13400 POKE SL0T+0,B8 

13300 POKE SL0T+-1,BS 

13600 POKE SLOT+2,0 

13700 POKE SL0T+3,B8 

13800 POKE 8L0T-»-4,B8 

13900 POKE SL0T+5,BB 

14000 POKE SL0T+7,B8 

14100 REM SETUP 09' S RESTART 

14200 REM JMP CODE 

14300 REM AT «40FA 

14400 X-PEEK (63534) *236+PEEK (63333) 

14500 POKE X +0,1 26 i REM »7E 

14600 POKE X+l, CODE/256 

14700 POKE X+2, CODE- (256* (CODE/256) > 

14800 REM ASM09I0 STARTS UP '09 

14900 RETURN 

15000 REM *** KILL ON ERR 
15100 POKE 216,0 
15200 RETURN 



15300 REM GET Y/N REPLY 
1S400 Y— 1 

1 S300 NORMAL I PRINT" ? " | CHR* < 7 > J I GET Y» 

13600 PRINTY*| 

13700 IF Y*-"Y" THEN Y-l 

15B00 IF Yt-"N" THEN Y-0 

13900 PR I NT i RETURN 

16000 REM 8TARTUP 

16700 IF BL-0 THEN FOR I-lTOSOOl NEXT I i RETURN 
16900 VTAB<22) iHTABO) 

17000 FLA8H I PR I NT " STANDBY- BLOAD RUNNING" 
17100 NORMAL 

17200 PRINTDt| "BLOAD ABM09. BIN, A" , STR* (CODE) 
17300 PR I NTD* | "BLOAD ASM09I0. BIN, A"9TR* < 10) 
17400 RETURN 
17300 REM LAST LINE 



ASM09IO 

INTERFACE SUBROUTINE FOR AS MO 9 



SOURCE FILE: 
00 00 : 
0000 : 
kOOOO: 
0000: 
0000 : 
0000: 
0000 : 
0000: 
0000: 
0000 : 
0000 : 
OOOO : 
0000 : 
0000: 
0000 : 
2000: 



ASM09I0 
1 * 



4 
5 
6 
7 
8 
9 
10 
1 1 
12 
13 
14 
15 



** **** *********************** ******** 

* <C> 1981, CONEJO COMPUTER PRODUCTS 

* 3655 THOUSAND OAKS BL. 

* WESTLAKE VILLAGE, CA 91362 

* ALL RIGHTS RESERVED 
* 

******* ASM09I0.TXT, 6502 CODE ****** 
* 

THIS 6502 CODE IS POS I T I ON- 1 NDEPENDENT 
AND CAM BE RELOCATED AT "BLOAD" -TIME 



THIS PROGRAM INTERFACES ASM09, THE BASIC 
CODE TO ASM09.BIN, THE 6809 CODE 



16 CODEAT EQU 8192 



WHERE ASM09.BIN GOES 



NEXT OBJECT FILE NAME IS ASM09IO.OBJO 



1 EOO: 








17 


ORG CODEAT-5 


12 WHERE ASM09IO.BIN GOE! 


1E00: 








18 


* 




1 EOO: 








19 


* DOS ADDRESSES: 




1 EOO : 








20 


* 




FDED: 








21 


COUT EQU *FDED 


CHAR OUT 


FDOC: 








*"*>*"> 


CIN EQU *FDOC 


CHAR I N 


1 EOO : 








23 


* 




l cXK.1 : 








24 


* PAGE ZERO MAILBOXES 


W/BASIC AND ASM09 


1 EOO : 








OCT 


* 




OOF A: 








26 


RXCMD EQU 250 


MAILBOX W/6809 


OOFC: 








27 


TXCMD EQU RXCMD+2 


DITTO 


|1E00: 








28 


* ASM09 POKES SLOT# * 


16 HERE: 


OOFE: 








29 


SLOTNO EQU TXCMD+2 


BASIC POKES IT HERE 


1E00: 








■j>0 


* EG: IF MILL IN SLOT 


4, C (SLOTNO) =$40 


1E00: 








3 1 


* 




1E00: 








32 


* REGISTERS WITHIN THE MILL 


1E00: 








33 


* 




C080: 








34 


SLOTO EQU *C080 


ADDR OF SLOT 


C081: 








35 


RUN09 EQU SLOTO+1 


10 ADDR+2 IS RUN BIT 


C082: 








•36 


RESET EQU SL0T0+2 


6809 RESET, 1 -FALSE 


IEOOj 








•>7 


* 




1E00: 








38 


* PROTOCOL CODES USED 


HEREIN, OTHERS IN BASIC' 


1E00: 








39 


* 




0001: 








40 


LISTCH EQU 1 


SEND CHAR TO LISTING 


0002 : 








41 


READCH EQU 2 


READ CHAR FROM DISK 


1E00: 








42 


* 




1 EOO : 








43 




1 EOO : 








44 


* BASIC DOES A "CALL 


10" TO HERE: * 


1 EOO : 








45 




1E00: 








46 


* 




lEOOi A4 


FE 




47 


LDY SLOTNO 


GET I OADDRESS LOW PART 


1E02: 


A9 


80 




48 


LDA #*80 




1E04: 


99 


82 


CO 


49 


STA RESET, Y 


SET RESET=FALSE 


1 E07 : 99 


81 


CO 


50 


ST A RUN09,Y 


SET RUN=1 


lEOAl 








51 


* 




1E0A: A2 


00 




52 


AOOO LDX #0 


CONSTANT 


1 EOC : 


A4 


FE 




53 


LDY SLOTNO 


GET SLOT NO. 


ilEOE: A9 


80 




54 


LDA #*80 


SET RUN=1 


1E10:99 


81 


CO 


55 


STA RUN09,Y 




1E13: 








56 


* 




1E13: 








57 


* 




1E13: 








58 


* 




1E13: 








59 


* 





lt£13i 






60 


* 








1E13I 






61 










1E13: 






62 


* 








1E13I 






63 


* 








AE13c 






64 


* 








W 1E13: 






65 


* 








1E13: A5 


FA 




66 


A 100 


LDA 


RXCMD 


ANYTHING ON RCV? 


IEISjFO 


17 




67 




BEQ 


B100 


IF NO 


lE17s C9 


02- 




68 




CMP 


ttREADCH 


IS IT "READ A CHARACTER 


1 E 1 9 : FO 


05 




69 




BEQ 


A200 


IF SO, DO IT 


lElBt 






70 


* ALL I 


□THER 


COMMANDS HANDLED BY BASIC 


IE 1 B: 8 A 






71 




TXA 




ZERO 


1E1C:99 


81 


CO 


72 




STA 


RUN09, Y 


HALT THE 09 


1E1F:60 






73 




RTS 




RETURN TO BASIC 


1E20S 






74 


* 








1E20: 






75 


* IS READ A 


CHAR FROM 


SOURCE FILE CMD 


1E20: 






76 


* 








1E20:8A 






77 


A200 


TXA 




ZERO 


1E21:99 


81 


CO 


78 




STA 


RUN09, Y 


HALT THE 09 


1E24: 20 


OC 


FD 


79 




JSR 


CIN 


FETCH CHAR 


1E27:85 


FB 




80 




STA 


RXCMD+1 


PASS VIA MAILBOX 


1E29:86 


FA 




81 




STX 


RXCMD 


RESET COMMAND 


tE2Bs 18 






82 




CLC 






lE2Cs 90 


DC 




83 




BCC 


AOOO 


(JMP) NEXT COMMAND 


1E2E: 






84 


* 








1E2E: 






85 


* POLL 


THE OTHER SIDE, 


OUTPUT FROM THE 09 


1 E2E i 






86 


* 








1E2E: A5 


FC 




87 


B 1 00 


LDA 


TXCMD 


ANY COMMAND? 


1E30:F0 


El 




88 




BEQ 


A 100 


IF NO 


1E32:C9 


01 




89 




CMP 


#L1STCH 


SEND TO LISTING? 


AE34:D0 


10 




90 




BNE 


B300 


IF NO 


^IE36: 






91 


* 








lE36s 








* SEND 


LISTING CHARACTER 


1E36: 






93 










1E36:8A 






94 




TXA 




ZERO 


1E37: 99 


81 


CO 


95 




STA 


RUN09, Y 


STOP THE 09 


1 E3A j 






96 


* IN 


CASE 


I/O NEEDS 


FULL SPEED 6502 


lE3At A5 


FD 




97 




LDA 


TXCMD+1 


GET DATA 


1 E3C i 09 


80 




98 




ORA 


#*80 


MERGE MSB 


1E3EJ20 


ED 


FD 


99 




JSR 


COUT 


SEND CHAR 


1E41s86 


FC 




100 




STX 


TXCMD 


RESET COMMAND 


lE43s 18 






101 




CLC 






1E44«90 


C4 




102 




BCC 


AOOO 


CONTINUE POLL 


1E46i 






103 


* 








1E46: 






104 


* IS START/STOP OBJECT 


1E46i 






105 


* 








1E46:8A 






106 


8300 


TXA 






1E47: 99 


81 


CO 


107 




STA 


RUN09, Y 


STOP '09 


1E4A:60 






108 




RTS 




GOTO BASIC 


1E4B: 






109 


* 








1E4B: 






1 10 


* 








1E4B: 






111 


***** 


END OF TEXT ****** 



*#* SUCCESSFUL ASSEMBLY s NO ERRORS 



LOAD09 



6502 PROGRAM TO LOAD PROGRAMS FOR THE MILL 



SOURCE FILE: L0AD09 

oooo j i m 

0000 r 2 * 

0000 t 3 * 

If 000 1 4 * 

NEXT OBJECT FILE 

5 
6 
7 
8 
9 
10 
1 1 
12 
13 
14 
15 
16 
17 
13 
19 
20 
21 
22 



L0AD09 - 6502 M/L 
F I LENAME=LO AD09 .BIN 
REV: 5/9/81 



6000 s 
6000: 
6000 : 
6000 1 
6000 : 
6000 : 
6000: 
600O: 
60G0 : 
OOF A : 
OOFB: 
6000 : 
6000: 
FDOC:- 
6000 : 
6000 : D8 
600 1 : 
600 1 : 20 
6004 : 29 
6006 : C9 
6008 : DO 
600A : 20 
600D:C9 
600F:F0 
A011:C9 
^013: FO 
6015:00 
6016: 4C 
6019: 
60 1 9 : 
60 1 9 : 
6019: 20 
601C:8D 
601F: 20 
6022: 8D 
6025:20 
6028: AA 
6029:20 
602C.-8D 
602F: EE 
6032: DO 
6034: EE 
6037 sCA 
6038: DO 
603A:4C 
603D: 
603Di 
603D: 
603D:20 
6040:85 
»>42:20 
6045: 85 
6047: 
6047: 
6047: 



NAME IS 
ORG 



FD 



60 



OC 
7F 
3A 
F7 
48 
03 
2C 
01 
04 



00 60 



48 
FA 
48 
FB 



60 



60 



L0ADO9. OB JO 
•6000 < 



* 
* 

* 
* 

* 



CHANGE AS NEEDED 



THE CALLER OF THIS SUBROUTINE MUST 
OPEN AN ASM09 HEX FILE AND ISSUE A READ 
COMMAND TO DOS. THIS CODE READS ALL DATA 
RECORDS, STORES ALL DATA, AND RETURNS 
AFTER PROCESSING THE "END" RECORD. 
ON RETURN, THE END RECORD'S STARTING 
IS IN LOCATION? . 



ADDRESS 
XFERHI 
XFERLO 
* 
* 

INCH 
* 

START 
* 

A 100 



24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 



cm i 




MOST SIGNIF. BITS 


EQU 


251 


LEAST SIGNIF. BITS 


EQU 


*FDOC 


READ CHAR FROM INPUT 


CLD 




NO DECIMAL 


JSR 


INCH 


GET CHAR 


AND 


#*7F 




CMP 


#*3A 


" : " , START OF RECORD 


BNE 


A 1 00 




JSR 


HEX2 


READ RECORD TYPE 


CMP 


#3 


="END" 


BEQ 


B200 


IF END RECORD 


CMP 


#1 


="DATA" 


BEQ 


B 1 00 




BRK 




ILLEGAL. RECORD 


J MP 


START 





* 
* 



PROCESS DATA RECORD 



48 


60 


36 


B100 


JSR 


HEX2 


GET ADDRESS-HI 


2E 


60 


37 




STA 


B 160+2 


SETUP INDIREECT 


48 


60 


38 




JSR 


HEX2 


GET ADDRESS-LO 


2D 


60 


39 




STA 


B 160+1 




48 


60 


40 




JSR 


HEX2 


GET COUNT 






41 




TAX 




SAVE COUNT 


48 


60 


42 


B150 


JSR 


HEX2 


GET DATA BYTE 


FF 


FF 


43 


B160 


STA 


*FFFF 


STORE DATAA 


2D 


60 


44 




INC 


B 1 60+ 1 


ADVANCE POINTER 


03 




45 




BNE 


B170 




2E 


60 


46 




INC 


B 160+2 


16 BIT ADDR 






47 


B170 


DEX 




LOOP ON RECORD COUNT 


EF 




48 




BNE 


B150 




01 


60 


49 




JMP 


A 1 00 


NEXT RECORD 



50 
51 
52 
53 
54 
55 
56 
57 
58 
59 



* 

* PROCESS END RECORD 
* 

B200 



JSR 
STA 
JSR 
STA 



HEX2 
XFERHI 
HEX2 
XFERLO 



GET HI OF STARTING ADDRESS 
STORE I T 

GET LOW OF STARTING ADDRESS 
STORE IT 



604/ 








60 








* 6047: 








61 


% 






6047 








62 


% 






6047i 








63 


% 






6047 








64 


% 






^^S047: 








A°i 


* 






6047 








AA 








6047 








A"7 




fAI 1 LTD 




6047 










* 






6047 


60 






69 


RTS 






604S 








70 


* 






6049 








71 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


6048 








72 


% 






6048 i 








73 


% READ TWO 


HEX/ASCI I 


BYTES, RETURN 


6048 








74 


* BINARY EQUIVALENT 


IN Y. 


60481 








75 


* 






6048: 


20 


5A 


60 


76 


HEX 2 JSR 


HEX1 


READ iST 


604B- 


OA 






77 


ASL 


A 


MSB 


604C: 


OA 






78 


ASL 


A 




604D: 


OA 






79 


ASL 


A 




604E: 


OA 






80 


ASL 


A 




604F: 


8D 


59 


60 


81 


STA 


HEX2X 




60521 


20 


5A 


60 


82 


JSR 


HEX1 


GET 2ND 


6055: 


OD 


59 


60 


83 


ORA 


HEX2X 


MERGE 


6058 s 


60 






84 


RTS 






6059 : 


00 






85 


HEX2X DFB 







605Ai 








86 


* 






605 A j 








87 


* READ AND CONVERT 1 


HEX CHAR 


605 A i 








88 


* RETURN BINARY EQUIVALENT IN ACCUM. 


605A: 








89 


* 






605 A : 


20 


OC 


FD 


90 


HEX1 JSR 


INCH 


GET CHAR- 


^fcjOSDi 


29 


7F 




91 


AND 


#*7F 


KILL MSB 


^05F : 


C9 


3A 




92 


CMP 


#*39+l 


' 9' +1 


6061 : 


30 


03 




93 


BMI 


HEX 1 A 


IF 0. . 9 


6063i 


38 






94 


SEC 






6064 : 


E9 


37 




95 


SBC 


#55 


MAKE 10.. 15 


6066 : 


29 


OF 




96 


HEX 1 A AND 


#*0F 


4 BITS 




Cj v.' 








RTS 




IN ACCUM 


6069: 








98 


* 






6069i 








99 


* LAST LINE 






6069 : 








1 00 


* 







*** SUCCESSFUL ASSEMBLY! NO ERRORS 



•* 6001 A 100 
6037 B170 
6048 HEX 2 




FA XFERHI 



6019 B100 
603D B200 
6039 HEX2X 
FB XFERLO 



6029 B1S0 
605 A HEX1 
FDOC INCH 



602C R160 
6066 'HE* I. A 
6000 START 



SAMPLE OF LOADER FORMAT 



01 1000022002 



; 01 1 0023A0628328D0 1 6AAEBCF73 1 8D0065A6A0A78026F AC&303 1 8D00676C26AA2A8 1 39234 1 E7266 
;25A62581392337E7256C24A6248139232DE7247DC030 



: 1 1 03C386C23A6238 1 392320E7236C22A6228 1 3923 1 6E722&C2 1. A62 1 8 1 39230CE72 1 ACA4«6A48 1 3 
?2302E7 A4308D000C 1 0AE8C96 A680A7 A026F A20A 1 



: 01 10740E3638303920434F554E54494E4720 



01 1082083030303030303000 



03 1 000 



DEM01 



DEM01.TXT - A SIMPLE DEMONSTRATION OF 6809+APPLE 
(C) 1981, CONEJO COMPUTER PRODUCTS 



PAGE 1 



* FILE-DEM01.TXT 

* 6809 / APPLE DEMO PROS 

* RUNS A COUNTER ON TOP LINE 



11 
12 
13 
14 
13 
16 



1000 



07F0 
C030 

1000 2002 

1002 0628 



OPT 
ORG 

SCREEN EQU 
BEEP EQU 
START BRA 
ADDR FDB 



18 1004 328D016A BEGIN LEAS 

19 1008 AESCF7 LDX 

20 100B 318D0065 LEAY 

21 100F A6A0 LI 00 LDA 

22 1011 A780 STA 

23 1013 26FA BNE 



25 1013 

26 1017 

27 101B 

28 101D 

29 101F 

30 1021 

31 1023 

32 1023 

33 1027 

34 1029 
135 102B 
F 36 102D 

37 102F 

38 1031 

39 1033 

40 1033 

41 1037 

42 1039 

43 103C 

44 103E 

45 1040 

46 1042 

47 1044 

48 1046 

49 1048 
30 104 A 
51 104C 
32 104E 

53 1050 

54 1052 

55 1054 

56 1056 

57 1058 

58 105A 
39 105C 

P60 105E 
lb 1 1060 
62 1062 



C630 L200 

318D0067 

6C26 

A626 

8139 

2341 

E726 

6C25 

A625 

8139 

2337 

E725 

6C24 

A624 

8139 

232D 

E724 

7DC030 

6C23 

A623 

8139 

2320 

E723 

6C22 

A622 

8139 

2316 

E722 

6C21 

A621 

8139 

230C 

E721 

6CA4 

A6A4 

8139 

2302 

E7A4 



64 1064 308D000C L300 

65 1068 10AE8C96 



LDB 

LEAY 

INC 

LDA 

CMPA 

BLS 

STB 

INC 

LDA 

CMPA 

BLS 

STB 

INC 

LDA 

CMPA 

BLS 

STB 

TST 

INC 

LDA 

CMPA 

BLS 

STB 

INC 

LDA 

CMPA 

BLS 

STB 

INC 

LDA 

CMPA 

BLS 

STB 

INC 

LDA 

CMPA 

BLS 

STB 

LEAX 
LDY 



NUM 

4096 

$7F0 

♦C030 

BEGIN 

$628 



<<< CHANGE AS DESIRED 
CRT ADDRESS 
I/O FOR SPEAKER 

SCREEN ADDR 



END+232,PCR SET STACK POINTER 
ADDR,PCR SCREEN ADDRESS 
MSG1,PCR "6809 COUNTING * 

,X + 

L100 



#'0 

MSG1A 

6,Y 

6,Y 

#'9 

L300 

6,Y 

3,Y 

5,Y 

#'9 

L300 

3, Y 

4, Y 
4,Y 
#'9 
L300 
4,Y 
BEEP 
3,Y 
3,Y 
#'9 
L300 
3,Y 
2,Y 
2,Y 
#'9 
L300 
2,Y 
l.V 
1,Y 
#'9 
L300 
IpY 
,Y 
,Y 
#'9 
L300 
,Y 



MSG1,PCR 
ADDR, PGR 



ASCII ZERO 
,PCR BUFFER ADDRESS 

FROM HERE WE INCREMENT BCD DIGITS 
BY ADDING 1 TIL '9' THEN DO CARRY 



CLICK SPEAKER 



SEND DATA TO CRT 



pmoi TX* - A SIMPLE DEMONSTRATION OF 6809+APPLE 
cT W*l , '" CONE JO COMPUTER PRODUCTS 



PAGE 



2 



66 106C A680 

§106E A7A0 
1070 26FA 
69 1072 20 A 1 



L400 



LDA 
STA 
BNE 
BRA 



71 1074 3638303920 MSG1 FCC 
71 107A 434F334E54494E47 

71 1082 20 , 

72 1082 3030303030 M8G1A FCC 

72 1088 303000 

73 OOOE CNT EQU 

74 108A END EQU 



76 



1000 



L400 
L200 



MOVE LOCAL TO CRT MEMORY 



MAIN LOOP 
6809 COUNTING " 



"0000000" , 

MSG1A-M8G1 
* 



END START 



PAGE 

DEM01.TXT - A SIMPLE DEMONSTRATION OF 6809+APPLE 
iC) 19S1, CONEJO COMPUTER PRODUCTS 

13 SYMBOLS IN TABLE l 

& :isa ss as rssr :iss ss. ;T4 as,. :iss iss^ss 

START flOOO 



8YMB0L TABLE ENDi 417D 

STATEMENT ERROR <S>, LAST PC l 1089 



NOTICE 



Stellation Two and Cone jo Computer Products -serve the 
right to make improvements in the Assemoier ueve * 
at any time and without notice. 

DISCLAIMER OF ALL LIABILITY AND WARRANTIES: 

STELLATION TWO AND CONE JO COMPUTER PRODUCTS MAKE NO WARRANTIES, 
PTTHER EXPRESSED OR IMPLIED, WITH RESPECT TO THE SOFTWARE, 

SarSJrS 5?SSSmSStatiom of the assembler development kit, 
its ouality, performance, merchantability, or fitness for 
a£y Particular purpose, the assembler development kit is 

SOLD "AS IS". THE ENTIRE RISK AS TO ITS QUALITY, FITNESS AND 
PERFORMANCE IS WITH THE BUYER. SHOULD ANY PART OF THE 
ASSEMBLER DEVELOPMENT KIT PROVE DEFECTIVE FOLLOWING ITS PURCHASE, 
THE BUYER ^AND NOT STELLATION TWO, CONEJO COMPUTER PRODUCTS , 
DISTRIBUTOR OR RETAILER) ASSUMES THE ENTIRE RESPONSIBILITY FOR 
ALL NECESSARY SERVICING, REPAIR OR CORRECTION AND ANY 
INCIDENTIAL OR CONSEQUENTIAL DAMAGES. IN NO EVENT WILL 
STELLATION TWO OR CONEJO COMPUTER PRODUCTS BE LIABLE FOR 
DIRECT, INDIRECT, INCIDENTIAL OR CONSEQUENTIAL DAMAGES 
RESULTING FROM ANY DEFECT IN THE ASSEMBLER DEVELOPMENT KIT EVEN 
IF STELLATION TWO OR CONEJO COMPUTER PRODUCTS HAS BEEN ADVISED 
OF THE POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW 
THE EXCLUSION OR LIMITATION OF IMPLIED WARRANTIES OR LIABILITY 
FOR INCIDENTIAL OR CONSEQUENTIAL DAMAGES, SO THE ABOVE LIMITATION 
OR EXCLUSION MAY NOT APPLY TO YOU. 



COPYRIGHT: 



THE MILL, THE SOFTWARE AND DOCUMENTATION OF THE ASSEMBLER 
DEVELOPMENT KIT ARE COPYRIGHTED BY STELLATION TWO AND/OR 
CONEJO COMPUTER PRODUCTS. WHILE STELLATION TWO AND CONEJO 
COMPUTER PRODUCTS ALLOW AND ENCOURAGE THE COPYING OF THE 
SOFTWARE PORTION OF THE KIT FOR BACKUP PURPOSES BY A SINGLE 
END-USER FOR A SINGLE SYSTEM, WE REMIND THE DEALER AND USER 
THAT ANY OTHER COPYING IS A VIOLATION OF FEDERAL AND INTER- 
NATIONAL LAW. THE DAMAGES FOR VIOLATION OF THESE LAWS IS 
SUBSTANTIAL AND NOT WORTH THE RISK INVOLVED. THE EXPRESS WRITTEN 
CONSENT OF STELLATION TWO AND CONEJO COMPUTER PRODUCTS IS 
REQUIRED FOR ANY OTHER COPYING OR TRANSLATION OF ANY PART 
OF THE ASSEMBLER DEVELOPMENT KIT. 



RO.Dox 2342 Sonfo Barbara, Ca. 93120 (805) 966-1 140 



— OWNER'S REGISTRATION FORM - 



CONEJO COMPUTER PRODUCTS 
3633 Thou.and Oak. Blvd. Suite 253 
Weetlake Village California 91362 USA 

THE MILL, 6809 ABBEMBLER PKS. , VI 



NAME 

FIRM 

STREET 

CITY/STATE 

COUNTRY 



•ZIP- 



DATE PURCHASED I MONTH l DAY l , YEARi 19— 

DEALER : : 

THE MILL 8ERIAL NUMBER 

APPLICATION, pleaee cheek onei « 

OEM CD INDUSTRIAL END-USER CD 8CH00L C3 HOBBY CD 
SOFTWARE- DEVELOPER C.3 OTHER 1 3 



We would appreciate a brief explanation o-f your i 
application and any comment* regarding the manual, sugesti 



app 

new products, etc. I 



